
Partial Class Pages_Controls_ctlDatosSocioSolicitud
    Inherits System.Web.UI.UserControl

    Protected Sub btnSeleccionar_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim valor As String = txtCodigoPersona.Text
        If Val(valor) <> 0 Then
            If optTipo.Value = 1 Then
                Call CargaDatos(1, txtCodigoPersona.Text)
            Else
                Call CargaDatos(2, txtCodigoPersona.Text)
            End If

        End If
    End Sub

    Protected Sub btnGrabar_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Call GrabarFichaSolicitud()
    End Sub

    Private Sub CargaDatos(ByVal tipo As Integer, ByVal Codigo As String)
        Dim objSolicitud As New BusinessLogic.crFichaSolicitud
        Dim ds As BusinessEntity.CCSolicitud
        ds = objSolicitud.GetDatosSolicitudSocio(tipo, Codigo)
        txtTitularID.Text = ds.TitularID
        txtNombreApellido.Text = ds.NombreCompleto
        txtEstadoDePago.Text = ds.EstadoDePago
        
        
    End Sub

    Private Sub GrabarFichaSolicitud()
        Dim objGrabarSolicitud As New BusinessLogic.crFichaSolicitud
        Dim ds As New BusinessEntity.CCSolicitud


        Try
            ds.SolicitudID = 0
            ds.TitularID = txtTitularID.Text
            ds.CodSolicitud = 0
            ds.Vitalicio = 0
            ds.CodSocioTransferir = cmbFamiliar.Value


            'ds.fechSolicitud = 0

            If objGrabarSolicitud.GrabarFichaSolicitud(ds) Then
                lblMensaje.Visible = True
                lblMensaje.Text = "Grabo..."

                Response.Redirect("~/Pages/frmRegistrarSolicitud.aspx")

            Else
                lblMensaje.Visible = True
                lblMensaje.Text = "No Grabo"
            End If


        Catch ex As System.IO.FileNotFoundException
            lblMensaje.Visible = True
            lblMensaje.Text = "No Grabo" 'ex.Message


        Catch ex As Exception

            lblMensaje.Visible = True
            lblMensaje.Text = "No Grabo" 'ex.Message

        End Try
    End Sub
End Class
